home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / programr / wtj009.zip / VBMEM.ZIP / MEMHUGE.FRM (.txt) < prev    next >
Visual Basic Form  |  1992-06-21  |  5KB  |  112 lines
  1. MemHugeForm
  2. Huge Arrays - Made in VB
  3. System
  4. Form1
  5. Mnu_Demo
  6. &Demo
  7. Mnu_LongInteger
  8. &Long Integer - hmemcpy
  9. Mnu_UserType
  10. &User Type - ToolHelp
  11. Mnu_TimeTest
  12. &Time Test
  13. AHINCR
  14. @    Form_Load
  15. GetProcAddress
  16. GetModuleHandle
  17. Mnu_LongInteger_Click
  18.     MemHandle
  19. wSize
  20.     lpAddress
  21. dwData
  22. dwIndex
  23. dwBytes
  24. GlobalAlloc
  25. GHNDA
  26. GlobalLock_
  27. hmemcpyu
  28. GlobalUnlocka
  29. GlobalFree
  30. Mnu_UserType_Click
  31. StoreRec
  32.     VideoType
  33. RecordsSize
  34. GlobalHandleToSel
  35. Index
  36. Title
  37. Length
  38. IsRented
  39. Customer
  40. CustomerNo
  41. dwOffset
  42. dwcb.
  43. Bytes
  44. MemoryWrite
  45. MemoryRead
  46. Mnu_TimeTest_Click
  47.     StartTime
  48. GetTickCount
  49. EndTimeR
  50.  THE VB MEMORY LANE by Costas Kitsos
  51. Form_Load
  52. KERNEL
  53. __AHINCR
  54. Mnu_LongInteger_Click
  55.  Demo a 70,000 element Array of Long Integers
  56.  wSize equals the size of a long Integer (4 bytes)
  57.  If our request failed then exit
  58. Allocated"t
  59.  bytesu
  60.  get a pointer to the memory block
  61. Writing Data to"
  62.  Element Array of Long Integers"
  63.  calculate the Selector portion of the Address
  64.  write some data
  65. Reading Data from element:s
  66. Data in Element"t
  67.  = "s
  68. Freeing Memoryu
  69. Doneu
  70. Mnu_UserType_Click
  71.  Demo a User Defined Type array of 2,000 elements
  72.  256,000 bytes
  73.  If our request failed then exit
  74. Allocated t
  75.  bytesu
  76.  get a selector
  77.  some data to writea
  78. Silence of the Lambs
  79. Gus Tomer"
  80. Wrote:t
  81.  bytes at Index 1999u
  82.  Ready to read it back now.
  83.  erase the record to prove that it worked.
  84.     StoreRec.IsRented = 0
  85.  read the record
  86. Read:"t
  87.  bytes at index 1999u
  88. StoreRec.Index = "t
  89. StoreRec.Title = "t
  90. StoreRec.Length = t
  91. StoreRec.IsRented = t
  92. StoreRec.Customer = t
  93. StoreRec.CustomerNo = t
  94. Doneu
  95. Mnu_TimeTest_Click
  96.  Demo a 100,000 element Array of Long Integers
  97.  wSize equals the size of a long integer (4 bytes)
  98.  If our request failed then exit
  99. Allocated"t
  100.  bytesu
  101.  get a pointer to the memory block
  102. Writing Data with hmemcpy to
  103.  Element Array of Long Integers"
  104.  calculate the Selector portion of the Address
  105. hmemcpy Time = "t
  106.  milliseconds"u
  107. Writing Data with ToolHelp to"
  108.  Element Array of Long Integers"
  109. ToolHelp Time = t
  110.  milliseconds"u
  111. Doneu
  112.